object frmMemo: TfrmMemo Left = 350 Top = 127 BorderIcons = [biSystemMenu] BorderStyle = bsToolWindow Caption = 'Memo' ClientHeight = 192 ClientWidth = 272 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate OnShortCut = FormShortCut OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object lblMax: TLabel Left = 162 Top = 128 Width = 103 Height = 13 Alignment = taRightJustify Caption = '(Max. 255 characters)' end object lblMonth: TLabel Left = 72 Top = 8 Width = 36 Height = 13 Caption = 'Month :' end object lblType: TLabel Left = 14 Top = 132 Width = 30 Height = 13 Alignment = taRightJustify Caption = 'Type :' end object lblDay: TLabel Left = 8 Top = 8 Width = 25 Height = 13 Caption = 'Day :' end object lblYear: TLabel Left = 184 Top = 8 Width = 28 Height = 13 Caption = 'Year :' end object memText: TMemo Left = 8 Top = 56 Width = 257 Height = 65 MaxLength = 255 TabOrder = 0 end object btnOk: TButton Left = 128 Top = 160 Width = 65 Height = 25 Caption = 'Ok' Default = True TabOrder = 1 OnClick = btnOkClick end object btnCancel: TButton Left = 200 Top = 160 Width = 65 Height = 25 Caption = 'Cancel' TabOrder = 2 OnClick = btnCancelClick end object updDay: TUpDown Left = 49 Top = 24 Width = 16 Height = 21 Associate = edtDay Min = 1 Max = 31 Position = 1 TabOrder = 3 Thousands = False Wrap = False end object updYear: TUpDown Left = 249 Top = 24 Width = 16 Height = 21 Associate = edtYear Min = 1 Max = 9999 Position = 2000 TabOrder = 4 Thousands = False Wrap = False end object cmbMonth: TComboBox Left = 72 Top = 24 Width = 105 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 5 Text = 'Janvier' Items.Strings = ( 'Janvier' 'F'#233'vrier' 'Mars' 'Avril' 'Mai' 'Juin' 'Juillet' 'Ao'#251't' 'Septembre' 'Octobre' 'Novembre' 'D'#233'cembre') end object cmbMemoType: TComboBox Left = 48 Top = 128 Width = 97 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 6 Text = 'Single' Items.Strings = ( 'Single' 'Weekly' 'Monthly' 'Yearly') end object edtDay: TEdit Left = 8 Top = 24 Width = 41 Height = 21 TabOrder = 7 Text = '1' end object edtYear: TEdit Left = 184 Top = 24 Width = 65 Height = 21 TabOrder = 8 Text = '2000' end end